home *** CD-ROM | disk | FTP | other *** search
/ Gigantic Games 2 / Gigantic Games 2.iso / pc / _a_ / abitur / txt / berechneschnitt.mod < prev    next >
Text File  |  1994-12-23  |  735b  |  33 lines
  1. IMPLEMENTATION MODULE BerechneSchnitt;
  2.  
  3. FROM Globals IMPORT SpielerPtr;
  4. FROM FaecherNamen IMPORT FaecherTypen;
  5.  
  6.  
  7.  
  8. PROCEDURE BerechneSchnitt(S: SpielerPtr);
  9. (* Nur Ende Jahr aufrufen *)
  10. VAR F : FaecherTypen;
  11.     SummSch, Sr: REAL;
  12.     Si: INTEGER;
  13. BEGIN
  14.    WITH S^.Zeugnis DO
  15.       SummSch := 0.0;
  16.       FOR F := Turnen TO Informatik DO
  17.          IF AnzInSumme[F] <= 0 THEN
  18.             Schnitt[F] := VorNote[F]
  19.          ELSE
  20.             Si := AnzInSumme[F];
  21.             Sr := FLOAT(Si) + 1.0;
  22.             Schnitt[F] := (VorNote[F] + AktuelleSumme[F]) / Sr
  23.          END;
  24.          SummSch := SummSch + Schnitt[F];
  25.       END;
  26.       GesammtSchnitt := SummSch / FLOAT(ORD(Informatik) + 1);
  27.    END
  28. END BerechneSchnitt;
  29.  
  30.  
  31. END BerechneSchnitt.
  32.  
  33.